home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / gdb / gdb_18s.zoo / symmisc.c < prev    next >
C/C++ Source or Header  |  1992-03-25  |  16KB  |  555 lines
  1. /* Do various things to symbol tables (other than lookup)), for GDB.
  2.    Copyright (C) 1986, 1987 Free Software Foundation, Inc.
  3.  
  4. GDB is distributed in the hope that it will be useful, but WITHOUT ANY
  5. WARRANTY.  No author or distributor accepts responsibility to anyone
  6. for the consequences of using it or for whether it serves any
  7. particular purpose or works at all, unless he says so in writing.
  8. Refer to the GDB General Public License for full details.
  9.  
  10. Everyone is granted permission to copy, modify and redistribute GDB,
  11. but only under the conditions described in the GDB General Public
  12. License.  A copy of this license is supposed to have been given to you
  13. along with GDB so you can know your rights and responsibilities.  It
  14. should be in a file named COPYING.  Among other things, the copyright
  15. notice and this notice must be preserved on all copies.
  16.  
  17. In other words, go ahead and share GDB, but don't try to stop
  18. anyone else from sharing it farther.  Help stamp out software hoarding!
  19. */
  20.  
  21.  
  22. #include "defs.h"
  23. #include "symtab.h"
  24.  
  25. #include <stdio.h>
  26. #include <obstack.h>
  27.  
  28. static void free_symtab ();
  29.  
  30.  
  31. /* Free all the symtabs that are currently installed,
  32.    and all storage associated with them.
  33.    Leaves us in a consistent state with no symtabs installed.  */
  34.  
  35. void
  36. free_all_symtabs ()
  37. {
  38.   register struct symtab *s, *snext;
  39.  
  40.   /* All values will be invalid because their types will be!  */
  41.  
  42.   clear_value_history ();
  43.   clear_displays ();
  44.   clear_internalvars ();
  45.   clear_breakpoints ();
  46.   set_default_breakpoint (0, 0, 0, 0);
  47.  
  48.   current_source_symtab = 0;
  49.  
  50.   for (s = symtab_list; s; s = snext)
  51.     {
  52.       snext = s->next;
  53.       free_symtab (s);
  54.     }
  55.   symtab_list = 0;
  56.   obstack_free (symbol_obstack, 0);
  57.   obstack_init (symbol_obstack);
  58.  
  59.   if (misc_function_vector)
  60.     free (misc_function_vector);
  61.   misc_function_count = 0;
  62.   misc_function_vector = 0;
  63. }
  64.  
  65. /* Free a struct block <- B and all the symbols defined in that block.  */
  66.  
  67. static void
  68. free_symtab_block (b)
  69.      struct block *b;
  70. {
  71.   register int i, n;
  72.   n = BLOCK_NSYMS (b);
  73.   for (i = 0; i < n; i++)
  74.     {
  75.       free (SYMBOL_NAME (BLOCK_SYM (b, i)));
  76.       free (BLOCK_SYM (b, i));
  77.     }
  78.   free (b);
  79. }
  80.  
  81. /* Free all the storage associated with the struct symtab <- S.
  82.    Note that some symtabs have contents malloc'ed structure by structure,
  83.    while some have contents that all live inside one big block of memory,
  84.    and some share the contents of another symbol table and so you should
  85.    not free the contents on their behalf (except sometimes the linetable,
  86.    which maybe per symtab even when the rest is not).
  87.    It is s->free_code that says which alternative to use.  */
  88.  
  89. static void
  90. free_symtab (s)
  91.      register struct symtab *s;
  92. {
  93.   register int i, n;
  94.   register struct blockvector *bv;
  95.   register struct type *type;
  96.   register struct typevector *tv;
  97.  
  98.   switch (s->free_code)
  99.     {
  100.     case free_nothing:
  101.       /* All the contents are part of a big block of memory
  102.      and some other symtab is in charge of freeing that block.
  103.      Therefore, do nothing.  */
  104.       break;
  105.  
  106.     case free_contents:
  107.       /* Here all the contents were malloc'ed structure by structure
  108.      and must be freed that way.  */
  109.       /* First free the blocks (and their symbols.  */
  110.       bv = BLOCKVECTOR (s);
  111.       n = BLOCKVECTOR_NBLOCKS (bv);
  112.       for (i = 0; i < n; i++)
  113.     free_symtab_block (BLOCKVECTOR_BLOCK (bv, i));
  114.       /* Free the blockvector itself.  */
  115.       free (bv);
  116.       /* Free the type vector.  */
  117.       tv = TYPEVECTOR (s);
  118.       free (tv);
  119.       /* Also free the linetable.  */
  120.       
  121.     case free_linetable:
  122.       /* Everything will be freed either by our `free_ptr'
  123.      or by some other symbatb, except for our linetable.
  124.      Free that now.  */
  125.       free (LINETABLE (s));
  126.       break;
  127.     }
  128.  
  129.   /* If there is a single block of memory to free, free it.  */
  130.   if (s->free_ptr)
  131.     free (s->free_ptr);
  132.  
  133.   if (s->line_charpos)
  134.     free (s->line_charpos);
  135.   free (s->filename);
  136.   free (s);
  137. }
  138.  
  139. /* Convert a raw symbol-segment to a struct symtab,
  140.    and relocate its internal pointers so that it is valid.  */
  141.  
  142. /* This is how to relocate one pointer, given a name for it.
  143.    Works independent of the type of object pointed to.  */
  144. #define RELOCATE(slot) (slot ? (* (char **) &slot += relocation) : 0)
  145.  
  146. /* This is the inverse of RELOCATE.  We use it when storing
  147.    a core address into a slot that has yet to be relocated.  */
  148. #define UNRELOCATE(slot) (slot ? (* (char **) &slot -= relocation) : 0)
  149.  
  150. /* During the process of relocation, this holds the amount to relocate by
  151.    (the address of the file's symtab data, in core in the debugger).  */
  152. static int relocation;
  153.  
  154. #define CORE_RELOCATE(slot) \
  155.   ((slot) += (((slot) < data_start) ? text_relocation        \
  156.           : ((slot) < bss_start) ? data_relocation : bss_relocation))
  157.  
  158. #define TEXT_RELOCATE(slot)  ((slot) += text_relocation)
  159.  
  160. /* Relocation amounts for addresses in the program's core image.  */
  161. static int text_relocation, data_relocation, bss_relocation;
  162.  
  163. /* Boundaries that divide program core addresses into text, data and bss;
  164.    used to determine which relocation amount to use.  */
  165. static int data_start, bss_start;
  166.  
  167. static void relocate_typevector ();
  168. static void relocate_blockvector ();
  169. static void relocate_type ();
  170. static void relocate_block ();
  171. static void relocate_symbol ();
  172. static void relocate_source ();
  173.  
  174. /* Relocate a file's symseg so that all the pointers are valid C pointers.
  175.    Value is a `struct symtab'; but it is not suitable for direct
  176.    insertion into the `symtab_list' because it describes several files.  */
  177.  
  178. static struct symtab *
  179. relocate_symtab (root)
  180.      struct symbol_root *root;
  181. {
  182.   struct symtab *sp = (struct symtab *) xmalloc (sizeof (struct symtab));
  183.   bzero (sp, sizeof (struct symtab));
  184.  
  185.   relocation = (int) root;
  186.   text_relocation = root->textrel;
  187.   data_relocation = root->datarel;
  188.   bss_relocation = root->bssrel;
  189.   data_start = root->databeg;
  190.   bss_start = root->bssbeg;
  191.  
  192.   sp->filename = root->filename;
  193.   sp->ldsymoff = root->ldsymoff;
  194.   sp->language = root->language;
  195.   sp->compilation = root->compilation;
  196.   sp->version = root->version;
  197.   sp->blockvector = root->blockvector;
  198.   sp->typevector = root->typevector;
  199.  
  200.   RELOCATE (TYPEVECTOR (sp));
  201.   RELOCATE (BLOCKVECTOR (sp));
  202.   RELOCATE (sp->version);
  203.   RELOCATE (sp->compilation);
  204.   RELOCATE (sp->filename);
  205.  
  206.   relocate_typevector (TYPEVECTOR (sp));
  207.   relocate_blockvector (BLOCKVECTOR (sp));
  208.  
  209.   return sp;
  210. }
  211.  
  212. static void
  213. relocate_blockvector (blp)
  214.      register struct blockvector *blp;
  215. {
  216.   register int nblocks = BLOCKVECTOR_NBLOCKS (blp);
  217.   register int i;
  218.   for (i = 0; i < nblocks; i++)
  219.     RELOCATE (BLOCKVECTOR_BLOCK (blp, i));
  220.   for (i = 0; i < nblocks; i++)
  221.     relocate_block (BLOCKVECTOR_BLOCK (blp, i));
  222. }
  223.  
  224. static void
  225. relocate_block (bp)
  226.      register struct block *bp;
  227. {
  228.   register int nsyms = BLOCK_NSYMS (bp);
  229.   register int i;
  230.  
  231.   TEXT_RELOCATE (BLOCK_START (bp));
  232.   TEXT_RELOCATE (BLOCK_END (bp));
  233.  
  234.   /* These two should not be recursively processed.
  235.      The superblock need not be because all blocks are
  236.      processed from relocate_blockvector.
  237.      The function need not be because it will be processed
  238.      under the block which is its scope.  */
  239.   RELOCATE (BLOCK_SUPERBLOCK (bp));
  240.   RELOCATE (BLOCK_FUNCTION (bp));
  241.  
  242.   for (i = 0; i < nsyms; i++)
  243.     RELOCATE (BLOCK_SYM (bp, i));
  244.  
  245.   for (i = 0; i < nsyms; i++)
  246.     relocate_symbol (BLOCK_SYM (bp, i));
  247. }
  248.  
  249. static void
  250. relocate_symbol (sp)
  251.      register struct symbol *sp;
  252. {
  253.   RELOCATE (SYMBOL_NAME (sp));
  254.   if (SYMBOL_CLASS (sp) == LOC_BLOCK)
  255.     {
  256.       RELOCATE (SYMBOL_BLOCK_VALUE (sp));
  257.       /* We can assume the block that belongs to this symbol
  258.      is not relocated yet, since it comes after
  259.      the block that contains this symbol.  */
  260.       BLOCK_FUNCTION (SYMBOL_BLOCK_VALUE (sp)) = sp;
  261.       UNRELOCATE (BLOCK_FUNCTION (SYMBOL_BLOCK_VALUE (sp)));
  262.     }
  263.   else if (SYMBOL_CLASS (sp) == LOC_STATIC)
  264.     CORE_RELOCATE (SYMBOL_VALUE (sp));
  265.   else if (SYMBOL_CLASS (sp) == LOC_LABEL)
  266.     TEXT_RELOCATE (SYMBOL_VALUE (sp));
  267.   RELOCATE (SYMBOL_TYPE (sp));
  268. }
  269.  
  270. static void
  271. relocate_typevector (tv)
  272.      struct typevector *tv;
  273. {
  274.   register int ntypes = TYPEVECTOR_NTYPES (tv);
  275.   register int i;